home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_pas / mkscren2 / capital.pas next >
Pascal/Delphi Source File  |  1987-04-09  |  147b  |  7 lines
  1. procedure capitalize(var str : str80);
  2. var
  3.  index : integer;
  4. begin
  5.  for index := 1 to length(str) do str[index] := upcase(str[index]);
  6. end;
  7.